home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / asenda1a / form2.frm < prev    next >
Text File  |  1999-06-28  |  2KB  |  67 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "FIND ASCEND"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4095
  8.    LinkTopic       =   "Form2"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   4095
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "Done"
  14.       Height          =   525
  15.       Left            =   2820
  16.       TabIndex        =   3
  17.       Top             =   2640
  18.       Width           =   1245
  19.    End
  20.    Begin VB.DriveListBox Drive1 
  21.       Height          =   315
  22.       Left            =   30
  23.       TabIndex        =   1
  24.       Top             =   30
  25.       Width           =   2685
  26.    End
  27.    Begin VB.DirListBox Dir1 
  28.       Height          =   2790
  29.       Left            =   30
  30.       TabIndex        =   0
  31.       Top             =   390
  32.       Width           =   2715
  33.    End
  34.    Begin VB.Label Label1 
  35.       Caption         =   "Point me to the acsendacy Directory and click the button below."
  36.       Height          =   855
  37.       Left            =   2760
  38.       TabIndex        =   2
  39.       Top             =   60
  40.       Width           =   1320
  41.       WordWrap        =   -1  'True
  42.    End
  43. End
  44. Attribute VB_Name = "Form2"
  45. Attribute VB_GlobalNameSpace = False
  46. Attribute VB_Creatable = False
  47. Attribute VB_PredeclaredId = True
  48. Attribute VB_Exposed = False
  49. Private Sub Command1_Click()
  50. On Error GoTo Errhand
  51. Open Dir1.Path & "\Nougat.lf" For Output As 9
  52. Print #9, ""
  53. Close 9
  54. Unload Form2
  55. Exit Sub
  56. Errhand:
  57. MsgBox "Err you can try to select a diffrent directory. Click OK."
  58. End Sub
  59.  
  60. Private Sub Drive1_Change()
  61. On Error GoTo handerr
  62. Dir1.Path = Drive1.Drive
  63. Exit Sub
  64. handerr:
  65. Exit Sub
  66. End Sub
  67.